home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / vbkontrol.exe / VBFINDID.ZIP / IDOPEN.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1991-10-23  |  2.9 KB  |  75 lines
  1. IDOPEN
  2. DlgDirList File Open
  3. Form1
  4. OkCancel
  5. Label2
  6. Directory:
  7. PName
  8. Label4
  9. &Files:
  10. Label5
  11. &Directories:
  12. OkCancel
  13. Cancel
  14. FList
  15. DList
  16. DlgDirList
  17. lpPathSpec
  18. nIDListBox4
  19. nIDStaticPath
  20.     wFiletype
  21. DlgDirSelectg
  22. lpString
  23. SetErrorMode(
  24. wMode
  25. IDS_PATH
  26.     IDL_FLIST
  27.     IDL_DLIST
  28.     sFileSpec
  29. FListBox
  30. DListBox
  31. iChange
  32. sCurDir
  33.     Form_Loado
  34. IDOPEN
  35. MakePath
  36. DList_DblClick
  37. iErrMode
  38. FList_DBlClick
  39. FList
  40.     ListIndex
  41. IDDEMO
  42. FName
  43. Caption
  44. aPath
  45. FList_Click
  46. DList_Click
  47. OkCancel_Click
  48. Index
  49. Userr
  50. Userr
  51. Kernel
  52.  IDs of the controls we'll be needing
  53.  search spec
  54.  last change flags
  55.  iChange holds the last change flagn
  56.   sCurDir holds the most recent directory
  57. Form_Load
  58.  fill the listboxes (wFileSpec is set to 0 for normal files)
  59.  save the current directory
  60. DList_DblClick
  61.  Prepare a buffer to hold the new directoryf
  62.  get the new directory
  63.  get rid off the Chr$(0)s 
  64.  let Windows handle the errors, e.g. drive not ready, etce
  65.  perform the changes
  66.  give error control back to us
  67.  save the directory change
  68. FList_DBlClick
  69.  if there is a selection, retrieve it and change the IDDEMO
  70.  FName caption to show the full selectionc
  71. MakePath
  72. FList_Click
  73. DList_Click
  74. OkCancel_Click
  75.